home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / zungr2.z / zungr2
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. ZZZZUUUUNNNNGGGGRRRR2222((((3333FFFF))))                                                          ZZZZUUUUNNNNGGGGRRRR2222((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      ZUNGR2 - generate an m by n complex matrix Q with orthonormal rows,
  10.  
  11. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  12.      SUBROUTINE ZUNGR2( M, N, K, A, LDA, TAU, WORK, INFO )
  13.  
  14.          INTEGER        INFO, K, LDA, M, N
  15.  
  16.          COMPLEX*16     A( LDA, * ), TAU( * ), WORK( * )
  17.  
  18. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  19.      ZUNGR2 generates an m by n complex matrix Q with orthonormal rows, which
  20.      is defined as the last m rows of a product of k elementary reflectors of
  21.      order n
  22.  
  23.            Q  =  H(1)' H(2)' . . . H(k)'
  24.  
  25.      as returned by ZGERQF.
  26.  
  27.  
  28. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  29.      M       (input) INTEGER
  30.              The number of rows of the matrix Q. M >= 0.
  31.  
  32.      N       (input) INTEGER
  33.              The number of columns of the matrix Q. N >= M.
  34.  
  35.      K       (input) INTEGER
  36.              The number of elementary reflectors whose product defines the
  37.              matrix Q. M >= K >= 0.
  38.  
  39.      A       (input/output) COMPLEX*16 array, dimension (LDA,N)
  40.              On entry, the (m-k+i)-th row must contain the vector which
  41.              defines the elementary reflector H(i), for i = 1,2,...,k, as
  42.              returned by ZGERQF in the last k rows of its array argument A.
  43.              On exit, the m-by-n matrix Q.
  44.  
  45.      LDA     (input) INTEGER
  46.              The first dimension of the array A. LDA >= max(1,M).
  47.  
  48.      TAU     (input) COMPLEX*16 array, dimension (K)
  49.              TAU(i) must contain the scalar factor of the elementary reflector
  50.              H(i), as returned by ZGERQF.
  51.  
  52.      WORK    (workspace) COMPLEX*16 array, dimension (M)
  53.  
  54.      INFO    (output) INTEGER
  55.              = 0: successful exit
  56.              < 0: if INFO = -i, the i-th argument has an illegal value
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.